【初稿】　86バイト

main=mapM print$[1..999]%cycle[3,5,7]
(a:b)%(c:d)|mod a c==0=a:b%d|1>0=b%(c:d)
[]%x=[]

【修正1】　78バイト

main=mapM print$[1..999]%cycle[3,5,7]
(a:b)%(c:d)|mod a c==0=a:b%d|1>0=b%(c:d)

エラー止めしたら、縮んだ。。。
トップが短すぎるんじゃないかと思って書いてみたけれど
ここから２０バイト以上縮むとか、全くわからないことが分かった。。。

【修正2】　75バイト

main=mapM print$[1..999]%3
(a:b)%n|mod a n==0=a:b%f n|1>0=b%n
f 7=3
f n=n+2

3,5,7 の繰り返しを素直に書くと、3バイト縮んだ。
しかし、僕の中で　これが限界かも。。。

【修正3】　74バイト

main=mapM print$[1..999]%3
(a:b)%n|mod a n<1=a:b%f n|1>0=b%n
f 7=3
f n=n+2