Pimentel,

You could try something like this ...Assuming you have PBP 2.60
Code:
DEFINE OSC 8

BuffLength   CON 32
Buff         VAR BYTE[BuffLength]
Idx          VAR BYTE
SerPin       VAR PORTC.6

HIGH SerPin
PAUSE 100

Main:
    ARRAYWRITE Buff,["Hello World!",13,10,0]
    GOSUB SendBuff
    PAUSE 1000
GOTO Main

;----------------------------------------------------
SendBuff:
    FOR Idx = 0 TO BuffLength -1
        IF Buff(Idx) = 0 THEN EXIT
        SEROUT2  SerPin,188,[Buff(Idx)]
        PAUSEUS 220
    NEXT Idx
RETURN