IF x THEN DO_8:=TRUE;ELSE DO_8:=FALSE; end_IF;

А что такое X ?