これじゃだめ?
最後の "0x0A" は入っちゃうけど

(let* ((pp-escape-newlines nil)
(print-quoted nil)
(word (pp-to-string '(:string "hoge\nhage"))))
(print (mapcar (lambda (x)
(format "0x%02X" x)) word)))