Try with Chr(10)+Chr(13). For example:
WriteLine(1,"This is a sample text"+Chr(10)+Chr(13))
WriteLine(1,"This is a second line of text"+Chr(10)+Chr(13))

Regards,
Flavien