Поскольку вы не указали, к какой таблице относится внешний ключ и в каком поле, я сделаю предположение:
Delete TableC
Where Exists( Select 1 From TableA Where TableA.Col1 = TableC.Col2 And TableA.Col3 <> '8001' )
Delete TableB
Where Exists( Select 1 From TableA Where TableA.Col1 = TableB.Col2 And TableA.Col3 <> '8001' )
Delete TableA
Where Col3 <> '8001'