0. #lang racket
1. (require (for-syntax racket/base syntax/parse))
2. (define-syntax (for/string stx)
3.   (syntax-parse stx
4.     [(_for/string #:separator sep:expr . more)
5.      (syntax/loc stx
6.        (let ([s sep])
7.          (string-append*
8.           (append*
9.            (let ([xs (for/list ([x (for/list . more)])
10.                        (if (list? x) x (list x)))])
11.              (if s (add-between xs (list s)) xs))))))]
12.     [(_for/string . more)
13.      (syntax/loc stx
14.        (_for/string #:separator #f . more))]))
15.  
16. (for/string ([x '(1 2 3)])
17.   (~a x))
18.  
19. (for/string ([x '([a 1] [b 2] [c 3])])
20.   (map ~a x))
21.  
22. (for/string #:separator "\n"
23.   ([x '([a 1] [b 2] [c 3])])
24.   (map ~a x))

=>

"123"

"a1b2c3"

"a1\nb2\nc3"