Go here to read the full answer and upvote it. The final solution seems to be to use
RunScheduledTask[Print[DateString[]]; LinkWrite[First[$FrontEnd], FrontEndToken["EvaluatorAbort"]];, {1, 3}, 5] While@True
