A simple loop implementation which makes use of `continue` and `break`, which works as you'd expect. All using the power of continuations!

loop.rkt

#lang racket

(define LOOP/CC (box '()))
(define BREAK/CC (box '()))

(define (continue)
  (let ((loop/cc (unbox LOOP/CC)))
    (loop/cc loop/cc)))

(define (break)
  (let ((break/cc (unbox BREAK/CC)))
    (break/cc)))

(define (reset . bs)
  (for-each (λ (b) (set-box! b '())) bs))

(define (loop body)
  (let/cc break/cc
    (set-box! BREAK/CC break/cc)
    (set-box! LOOP/CC (call/cc identity))
    (body)
    (continue))
  (reset LOOP/CC BREAK/CC))

(define x 0)

(loop (λ ()
        (set! x (+ 1 x))
        (when (odd? x) (continue))
        (display x)
        (when (> x 10) (break))
        (displayln ", Hello!")))

;; Should print
;; 2, Hello!
;; 4, Hello!
;; 6, Hello!
;; 8, Hello!
;; 10, Hello!
;; 12