在 for 语句中暂停应用程序的最佳方法

我希望我的 for 语句中每 1 秒设置一次延迟。 这就是我所做的。

Dim dueTime As DateTime = DateTime.Now.Add(TimeSpan.FromSeconds(1))
 for i=1 to 500
While DateTime.Now < dueTime
Application.DoEvents()
                    End While
    'the code
        next i

由于我有 10 个这样的同时进程，我注意到系统中的 CPU 使用率提高到 70%。我毫不拖延地运行了代码，它只变成了 10%。还有其他方法吗？

注意：我可以用 C# 或 VB 找到自己的方式