While[True,
 Print@"SPAM";
 ]