Woran erkennst du, dass der sich aufhängt?
Probier einfach mal, hinter Porte.3 = 0 auch noch ein Waitms 200 einzufügen. Also so

Do

Porte.3 = 1
Waitms 200
Porte.3 = 0
Waitms 200

Loop

Ansonsten sieht es so aus, als bliebe die LED immer an oder immer aus.